This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Sure. Pretty simple really. ~Umberto Nongeroson 20.Nov.03 05:21 PM a Web browser Domino Designer 6.0.2 CF2Windows XP
If source.isnewdoc=False Then
Set doc=source.document
f1val = doc.Field1(0)
If f1val <> "" Then
Messagebox f1val, 0,"Document In-Use"
continue=False
Delete doc
Else
continue=True
uname = doc.ParentDatabase.Parent.CommonUserName
doc.Field1 = "This document is currently being edited by: " + uname + ". Please try back later."
docsaved=doc.save(False, False)
If Not docsaved Then
continue=False
Delete doc
End If
End If
End If